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mm' 

000000 
000000 
000136 



MODULE 
.TITLE 
DDXCDM 
.LIST 



IQMODCKMCB >,1 , 1*5,5 ,0, 200, 1 36 
140000, KMCB ,1,1,5,5,0,200,136 
KMCB DEC/X11 SYSTEM EXERCISER MODULE 
VERSION 6 23-MAY-78 



**************************** 



Iegin. 

modnam: 

xflag: 

ADDR: 

VECTOR: 

BRl: 

BR2: 

DVIDl: 

sri: 

SR2: 
SR3: 
SR4: 

stat: 

init: 

spoint: 

pascnt: 

icont: 

icount: 

sofcnt: 

hrdcnt: 

sofpas: 

HRDPAS: 

syscht: 

rannum: 

CONFIG: 

RESi: 

RES2: 

svro: 
svri: 

SVR2: 
SVR3: 
SVR4: 
SVR5: 
SVR6: 

csra: 

sbadr: 

acsr: 

wasadr: 

astat: 

errtyp: 

asb: 

awas: 

rstrt: 

wdto: 

wdfr: 

imtr: 

idnum: 

modsp: 



r********** 



.ASCII 

.BYTE 

1 + 

1+0 

.BYTE 

.BYTE 

+ 1 

OPEN 

OPEN 

OPEN 

OPEN 

140000 

START 

MODSP 



200 



















OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

RESTRT 

OPEN 

OPEN 

OPEN 

136 



************* 



/KMCB / /MODULE NftHE. 

OPEN JUSED TO KEEP TRACK OF WBUFF USAGE 

;1ST DEVICE ADDR. 

MST DEVICE VECTOR. 
PRTY5+0 JlST BR LEVEL. 

PRTY5+0 ;2ND BR LEVEL. 

;DEVICE INDICATOR 1. 

;SHITCH REGISTER 1 

;SWITCH REGISTER 2 

?S«ITCH REGISTER 3 

;SfeITCH REGISTER 4 

************************************ 

jstatus word, 

jmgdule start addr. 

module stack pointer. 

;pass counter. 

}m qf iterations per pass=200 

;l0c to count iterations 

;loc to save total soft errors 

;loc to save total hard errors 

?lgc to save soft errors per pass 

;loc to save hard errors per pass 

;# of sys errors accumulated 

;h0lds random $ when rand macro is 

reserved for monitor use 

preserved for monitor use 

preserved fop monitor use 

;loc to save ro. 

>LGC TO SAVE Rl. 
;L0C TO SAVE R2. 
;LDC TO SAVE R3. 
JLOC TO SAVE R4. 
;L0C TO SAVE Rb. 

;l0c to save r6. 

;acdr of current csp. 

;addr of good data, or 

jcontents of csr. 

;addr of bad data, or 

pstatus reg contents. 

;type of error 

;expectsd data. 

;actual data. 

prestart address after end of pass 

;wgrds to memory per iteration 

;feords from memory per iteration 

;# of interrupts per iteration 

pmodule identification numbep=136 
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235 
236 
237 
238 
239 
240 
241 
242 
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244 
245 
246 
247 
248 
249 
250 
251 

ill 

254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 



000224' 
000226' 
000230- 
OOQ 

88_„_ 

000240' 
000242' 



VUUZJV 

000232' 

mm- 



000000 
000000 
000000 
000017 
000000 
000000 
000377 
000377 



000000 
000000 
000000 
000002 
000100 

oooooo 

000 

mm 




******** 



r********************* 



**************** 



r*** ******* 



ft************ 



******** 



VARIABLES FOR KMC11 
************************************ 



DLYl: 
DLY2: 


.WORD 


8 


.WORD 


SELECT: 


.WORD 





flagb: 


.WORD 


17 


FIRST: 


.WORD 





mask: 


.WORD 





RSIZE: 


.WORD 


377 


XSIZE: 


.WORD 


377 


va: 


.WORD 


8 


pa: 


.WORD 


ea: 


.WORD 





saro: 


.WORD 





sari: 


.WORD 





szmulv: 


.WORD 


2 


rtmulv: 


.WORD 


100 


TERM= 







rcoly: 


.BYTE 





xmoly: 


.BYTE 
.EVEN 





nprte: 


.WORD 


10000 


temp: 


-WORD 


flag: 


-WORD 






;DEVICE 1 DELAY COUNT. 
PDEVICE 2 DELAY 



AY COUNT. 

;TEMPORARY SELECTED DEVICE'S 

;END PASS FLAG. 

;FIRST PASS FLAG. 

TEMPORARY VARIABLE. 

;RECEIVE BUFFER SIZE. 

;TRANSMIT BUFFER SIZE. 

VIRTUAL ADDRESS. 

;PHYSICAL ADDRESS. 

>EXTENDED ADDRESS. 

;SAVE LOG. FOR RO. 

;SAVE LOG. FOR Rl 

;LOCATION USED TO CALCULATE NPR/BR RATE. 

;L0CATI0N USED TO CSLCULATE NHR RATE. 

TERMINATING VALUE. 

;XNTTR ONLY FLAG=SPAD<16> 

JRCV ONLY FLAG=SPAD <15> 

LOCATION FOR NPR RATE. 
TEMPORARY VARIABLE. 
;USED TO LOAD MAIN MEMORY. 



****************************** 



BEGIN THE DEC./X11 MODULE FOR THE KMC11 



CLR 
BIT 
BNE 
MOV 
BNE 



FLAG 

g"C<3>, DVIDl 

DROP 

DVIDl, SELECT 

RESTRT 



RESTRT: 

loop: 



END$, BEGIN 

CLR FIRST 

MOV #RBUF11,R0 



;SET FOR FIRST PASS... 

;DR0P MODULE IF OTHER THEN 

PFIRST 2 DEVICES ARE SELECTED 

;SELECT=ACTIVE DEVICES. 

;DROP MODULE IF NO ACTIVE DEVICES. 



INITIALIZE THE FIRST TIME FLAG. 
?GET SET TO CLEAR BUFFERS. 
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5 §8p|i; |pp| 



007276' 

177662 

177714 




00474" 04270 
00500' 04270 

888181- P 

000512' 00456'. 
000516' 022767 

-"0524" 

-.0526' 0.,.,. 
000534' 016767 
000542' 010203 
000544' 016704 
000550' 004567 
000554' 022767 
000562' 003403 
000564* 016767 
"00572' 032767 



CLR 
CMP 
BLE 
MOV 
BEQ 
TST 
BNE 



(R0) + 
RQ,$BASE1 



JCLEAR THE LOCATION IN BUFFER 

J END QF BUFFERS? 

JNO GO CLEAR THE NEXT. 



FLAG 
SETUP1 



GO .__... _.._ 
~t S3 1 fl"* if* T T UP HIT*? 

{drop module if"no devices selected. 
?is it first pass??? 

)NO,TH "' """'" """"" "" 



} 
; 



fc|CT,RO 

'hen'dont 4 load'the micro-code... 

************************************************************** 

I. THIS PART SETS UP PARAMETERS COMMON TO ALL 

DEVICES like: A/npr/br rate. 

23NPR RATE. 
33DIRECTI0N OF NPR. 

II. INITIATES MICRO-CODE LOADED IN KHC11. 

a* ****************** a *************************************** ******* 



7216 3$: 



CLRB 

CLR 

CLR 

TST 

BMI 

BIT 

BEQ 

MOV 

MOV 

MOV 

BR 

BIT 

BNE 

MOV 

MOV 

ASR 

ASR 

ASR 

ASR 

ASR 

ASR 

BIC 

BIC 

MOV 

MUV 

JSR 

CMP 

BLE 

MUV 

MOV 

MOV 

MOV 

JSR 

CMP 

BLE 

MOV 

BIT 



BIT14,SR1 

SZMULV/RS12E 
SZMULV,XSIZE 
RTMULV/NPRTE 

|BIT14,SR1 

SR1,R1 
SR1/R2 

R2 
R2 

M 

{fl77700,Rl 

SZMULV/R4 
R5,MLTPLY 
#377,TEMP 

TEMP/RSIZE 
TEMPfXSIZE 
R2,R3 
RTMULV,R4 



R5,MLTPLY 
|10000/TEMP 



INITIALIZE 
^INITIALIZE 
^INITIALIZE 



& DROP THE MODULE. 
MULTIP ~ 



E T IE FLAGS. 
^INITIALIZE THE FLAGS. 
^INITIALIZE THE END PASS FLAG. 
^INITIALIZE THE END PASS FLAG. 
;IS IT MULTIPLY OPTION? 
jYES/GO SET UP BFSIZE 5, NFRRATE. 
;IS THE RATE SET? 
JNO/TAKE DEFAULT. 
ISET NPR/BR RATE. 
;SET THE NPR/BR RATE. PARAMETER. 
;SET NPR RATE. 
JSET UP THE REST. 
;IS SR1<14>.=1? 
;Y£S, PRINT THE ERROR 

;RETRIEVE BUFFER SIZE _._ 

jRETRIEVE NPR RATE MULTIPLICAND 
;SET UP NPR RATE MULTIPLICAND 
iSET UP NPR RATE MULTIPLICAND 
)SET UP NPR RATE MULTIPLICAND 
?SET UP NPR RATE MULTIPLICAND 
;SET UP NPR RATE MULTIPLICAND 
;SET UP NPR RATE MULTIPLICAND 
?CLEAR THE EXTRA HITS. 
;CLEAH UNNECESSARY BITS. 
;GET THE MULTIPLICAND... 
;GET THE MULTIPLIER... 
^MULTIPLY & RETURN THE RESULT 
;CHECK IF WITHIN LIMIT... 
;N0 TAKE THE DEFAULT... 
;RSIZE=NFR/BR RATE. 
;XSIZE=NPR/BR RATE. 
>GET THE MULTIPLICAND 



TEMP # NPRTE 
#BITl2/SRl 



,__. ...E MULTIPLIER. . - 
3MULTIPLY I PUT RESULT 
*CHECK IF WITHIN LIMIT. 
NO, TAKE THE DEFAULT... 



/ NU/ 1A. -_ . .._ . _. 

;NPRTE=NPP/TIME. 
;IS IT RECEI"" " 



VE ONLY? 
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6$: 

5$: 

7$: 

8$: 

10$: 
9$: 



BEQ 
PIT 

BEQ 

MSGN$, 

BR 

COMB 

BR 

BIT 

BEQ 

COMB 

MOV 

MOV 

CLR 

ASR 

BCS 

BEQ 

ADD 

BR 

JSR 

JSR 

JSR 

TST 

BEQ 

MSGN$, 

INC 

CMP 

BGT 

J MP 



PIT13/SR1 

BEGIN/S0FT1 
DROP 
RCOLY 
7S 
|BIT13,SR1 

XMOLY 

ADDR.R1 ;GET 
SELECT, R3 
TEMP 
R3 

SETUP1 

n oM 

PCWCRAM 
PC/WMEMRY 
PC/VERIFY 
MASK 
10$ 
BEGIN, S0FT2 
TEMP 
#3, TEMP 



DROP 
, ****** ****** *******i 



;N0 , CHECK IF XMITR ONLY. 
;IS XMITR ONLY ALSO SET? 
JNO, SETUP FOR RECEIVE ONLY 

JASCII MESSAGE CALL WITH COMMON HEADER 
JDROP THE MODULE. 
;SET RECEIVE ONLY FLAG. 
;GO SET UP OTHER VARIABLES. 
;IS XMITR ONLY SET? 
?NG,DQ BOTH. 
;SET XMITR ONLY FLAG. 
THE FIRST DEVICE CSR. 

:GET THE DEVICE SELECTED. 

JCLEAR THE RETRY COUNT. 

;ANY DEVICE REMAINS. 

;YES/GO AND LDAD MICRO-CODE INTO IT. 

;SETUP THE REST. 

;UPDATE THE CSR. 

;L0AD THE NEXT DEVICE. 

J^ T l k dI8 E lS^ MU BJ c KS°RISory «tt„ xm!tr puf^h. 

JVERIFY MICRO-CODE & XWTTR DATA. 

;IS THERE ANY ERROR. 

?NO,GU INITIATE IT. 

JAs6lI MESSAGE CALL fclTH COMMON HEADER 

^INCREMENT RETRY COUNT. 

;IS IT TRIED THREE TIMES? 

;N0 £ TRY AGAIN!! 

;DR0P THE MODULE. 



************* 



********* 



THIS PART SF.TSUP THE PROGRAM CONTROL 
VARIABLES FOR THE DEVICES AND THE 
MODULE. EX. QUEUES. .../ETC. 



.**************** 



**************** 



********** 



SETUPl: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
ASR 
BCS 
BEQ 
ADD 
ADD 
ADD 



2$: 
3$: 



ADDR,R1 

VECTOR, R2 

#TNTLNK,R3 

FLAGR,XX11 

FLAG8,XX21 

#PIRINQ,INQIN 

#PIRINQ,INQQUT 

ftPIROUTQ/OUTQOUT 

!PIROUTQ,OUTQIN 
REGQ/REGQI 
REGQ,REGQO 
ELECT, RO 
RO 
45 

SETUP2 

tflO/Rl ;N0.UPDA 
810/R2 ;UPDATE 
#22,R3 ;UPDATE 



;GET THE 
?GET THE 
?GET THE 
;SET THE 
;SET THE 
;SET UP 
;SET UP 

;SET UP 
;SET UP 
;SET UP 
;SET UP 
:R0= DEV 
ANY DEV 
YES/ GO 
ALL DON 
E CSR 
VECTOR 
LINK. 



DEVICE CSR. 

VECTOR. 

POINTER TO INTERRUPT LINKAGE. 

END PASS FLAG FOR DEV},'1. 

END PASS FLAG FOR DEVfc'2. 
ALL QUEUES & ITS POINTERS. 
ALL QUEUES & ITS POINTFRS. 

ALL QUEUES S, ITS POINTERS. 
ALL QUEUES £ ITS POINTERS. 
ALL QUEUES & ITS POINTERS. 
ALL QUEUES & ITS POINTERS. 
ICES SELECTED. 
ICE ACTIVE? 

SET IT UP. 
E? 
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lllllr 




177123 

000012 000012 

177104 

000012 



000020 
176744 

000020 

000024 



4$J 



5$: 
SETUP2: 

1$: 

2$: 
3$: 



000002 12$: 



6$: 



BR 

MOV 

MOVB 

MOV 

MOV 

ADD 

MOVB 

CLR 

CLR 

TSTB 

BEQ 

MQV 

BR 

TSTB 

BEQ 

MOV 

MQV 

MOV 

ASR 

acs 

BEQ 

ADD 

BR 

TST 

BNE 

MOV 

CLR 

CLR 

CLR 

CLR 

MOV 

TSTB 

BMI 

MOV 

MOV 

BREAKS 

BREAK§ 

MOV 

MOV 

BR 

BIS 

TSTB 

BEQ 

BIS 

BR 

BIS 

BR 




„ BIT2/1 

Rddr,ri 

SELECT, RO 
RO 

SCAN 
JJ0,S1 

FIRST 

9$ 

#BIT14,(R1) 

Jri) 

2CR1 ) 
4(R1) 
6(Rlj 

?liT l5 ' (R1) 

12$ 

RQ,SAR0 

R1/SAR1 
■ BEGIN 
.BEGIN 

SAR0,P0 

SAR1,R1 



GO SET UP FOR NEXT DEVICE, 
LOAD INTERRUPT VECTOR ADDRESS. 
SET THE PRIORITY. 
SET THE DEVICE CSR. 
LOAD XMITR 
INTERRUPT VECTOR. 
SET THE PRIORITY. 
CLEAR END PASS FLAG FOR DEVfll. 
CLtfAR THE RECEIVE BUFFER OFFSET. 
IS XMITR ONLY FLAG SET? 
NO, CHECK FOR RECEIVE ONLY FLAG. 
;SET XMITR BITS IN ENDPASS FLAG. 

IS RECEIVE ONLY FLAG SET? 

NO, DON'T SET ANY BITS IN ENDPASS FLAG. 
;SET RECEIVE BITS IN ENDPASS FLAG. 
;R1=CSR ADDRESS. 
JR0=SELECT. 
;ANY DEVICE ACTIVE? 

;VES,GO & INITIATE THE DEVICE DEC/X MODULE. 
;ALL DONE, GO AND SCAN. 
JUPDATE CSR ADDRESS. 
;CONTIHUE. 

?IS IT FIRST PASS??? 
;NO £ THEM DON'T INITIALIZE DEVICE 
;MASTER CLEAR FIRST TIME ONLY. 



MNITIALIZE THE UNIBUS CSR' 
;INITILIZE THE UNIBUS CSR'S. 
^INITIALIZE THE UNIBUS CSR'S. 
INITIALIZE THE UNIBUS CSR'S. 

JSET THE RUN BIT... 
; IS RD I SET? 
?YES, THEN START DECX... 
?SAVE REGISTER RO... 
?SAVE REGISTER Rl... 
TEMPORARY RETURN TO MONITOR.... 
?THEN CONTINUE AT NEXT INSTRUCTION. 
;RESTQRF, REGISTER PC... 
;RESTOREREGISTER Rl... 
; SiAIT/FOR RD I TO SET... 
;SET IEU... 
;IS RECEIVE ONLY SET? 
;ONLY BRANCH IF NO. 
>SET IEI, RECEIVE PA/CC [ 
;CONTINUE. 

JSET IEI, XMITR BA/CC T. 
;CDNTINUE. 



***************************************** 



*********************** 



THIS ROUTINE SCANS ALL DEVICES END PASS FLAGS 
UNTIL ALL ACTIVE KMC11 DEVICES ARE FINISHED. 
UPDATES PASS COUNT AND LOOPS TILL 200 PASSES 
ARE DONE. CHECKS DATA AND PRINTS OUT DATA ERRORS. 
REPORTS END OF PASS. 



r :■'■',■:-:* 
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176644 
002656 



mm 



512 
513 



122524 
'5367 
.1356 
00725 



176350 
176346 
176344 
176342 
176340 



SCAN: 
1$: 
2$: 
3$: 

4$: 
5$: 
6$: 

7$: 

! 

B$: 
9$: 
10$: 



11$: 
16$: 



********** 

MOV 

MOV 

CLR 

CMP 

BNE 

BIC 

CMP 

BNE 

BIC 

TST 

BNE 

MOV 

MOV 

MOV 

ASR 

BCS 

BEQ 

ADD 

TST 

BR 

MOV 

MOV 

ENDITS, 



********* 



t**************** 



&3,MASK 
IlO^DLYl 
DLY2 
FLAGB,XX11 

pITO,NASK 
FLAG8,XX21 

«BIT1,MASK 

MASK 

16$ 

#INTLNK+10,R1 

SELECT, RO 

ttBUFTAB,R3 



, FIRST 
-i/FLAG 
BEGIN 



JMP LOOP 
?**** ******** ************ 



?SET BIT FOR ALL DEVICES. 

;SET DELAY COUNT. 

;CLEAR DELAY COUNT 

;IS DEVICE 1 ALL DONE?. 

;ND, CHECK THE NEXT ONE. 

JCLEAR THE DEVICE BIT. 

JIS DEVICE #2 ALL DONE? 

?NQ,GQ AND WAIT. 

;CLEAR THE DEVICE BIT. 

|ARE ALL DEVICES DONE? 

?NO,GO AND WAIT. 

;R1 POINTS TD DEVICE CSR. 

;ro CONTAINS BITS FOR ACTIVE devices. 

;R3=PQINTER TO RECEIVER BUFFER. 

JIS ANY DEVICE ACTIVE? 

;YES,GO AND CHECK THE DATA. 

;IS IT ALL DONE THEN BRANCH. 

;UPDATE Rl TO NEXT DEVICE CSR. 

JUPDATE R3 TO NEXT BUFFER. 

^CONTINUE. 

;SET FIRST PASS FLAG. 

;SET FLAG FOR MICRO-CODE LOADED. 

JSIGNAL END OF ITERATION. 

;MONITOR SHALL TEST END OF PASS 

?LOOP THE MODULE. 



*************** 



********** 



******** 



CHECK THE DATA IN RECEIVE BUFFER... 
*********************************************************** 



TSTB 

BNE 

MOV 

MQV 

MOV 

MOV 

CMPB 

BEQ 

MOV 

MOV 

MQV 

MOVB 

MOVB 

• ******* 

DATER$,t 

• ******! 

CMPB 

DEC 
BNE 
BR 



XMDLY 

(lh),R2 

(R2)+,R4 

|XBUF,R5 

RSIZE,TEMP 

(R5),{R4) 

lis 

tRlj/CSRA 

R5,SBADR 

R4*WASADR 

*" ASB 

,AHAS 

ft******* 



;r5),a 

mid 



TEMP 

10$ 

5$ 



,(R4)+ 



;IS IT XMIT ONLY??? 
;YES, THEN DONT CHECK THE DATA... 
?R2=P0INTS TO RECEIVER BUFFER. 
;R4=P0INTS TO RECEIVER DATA. 
;R5=P0INTS TO GOOD DATA. 
;SET THE BUFFER SIZE. 
;COMPARE DATA. 
;GCOD, COMPARE NEXT CHAR. 
;LOAD CSRA. 
;LOAD GOOD ADDRESS. 
;LOAD BAD ADDRESS. 
;LOAD GODD DATA. 
JLOAD BAD DATA. 
******************************************** 



;POP BUFFER DATA POINTERS. 

;ALL DONE? 

;no, do the next. 

;g0, and check remaining device. 
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001576* 
001602* 



104407 
104407 

005367 
001402 
000167 
105367 



001402 
000167 
016700 



av 



040067 

mm 

004367^ 

000001 
006000 
103004 
004367 
Q04254* 



000 



0002 
~167 



000000' 
000000* 



177544 
176410 

177532 
176410 
176376 



000010 
176440 



BREAKS, BEGIN 
BREAKS, BEGIN 



DEC 

BEQ 

JMP 

DEC 

BEQ 

JMP 

MOV 

BIC 

ROR 

BCC 

JSR 

CSRGl 

1 

ROR 

BCC 

JSR 

CSR22 

2 

JMP 



************************** 



17$: 



DLY2 
. + 6 

DLY1 
. + 6 

MASK,R0 

RO/SELECT 

RO 

17$ 

R3,XERR 



RO 

18$ 

R3,XERR 



TEMPORARY RETURN TO MONITOR..., 
;THEN CONTINUE AT NFXT INSTRUCTION. 
;THEN CONTINUE AT NEXT INSTRUCTION. 
DECREMENT DELAY COUNT FOR #2. 

J8ATT FOR DEVICE TO COMPLETE. 
;DECREMENT DELAY COUNT FOR ffl. 

;WAIT FOR DEVICE TO COMPLETE. 
;R0=HUNG DEVICE PITS. 
;DROP ANY HUNG DEVICE. 
/WAS DEVfil HUNG?. 

"branch if no. 

;tvpe error message & drop. 

JPOINTER TO DEVtfl CSR. 

;device numbfr for typeout. 

;WAS DEVf2 HUNG? 

;branch if not. 

;type error message then drop. 
•pgintbr to dev#2 csr. 
;device number for typeout. 
;rfstart module. 

**************************** 



THIS SUBROUTINE DROPS THE HUNG DEVICF. 
CLEARS OUT DEVICE SELECT BITS. 
PRINTS THE EXTENDED ERROR MESSAGE. 



012302 
012367 



• • *** 

XERR 



************** 



*********************** 



r*** ************ 



674* 


052767 
104403 
011201 


000060 
000000' 


000102 


702' 


002006 


710' 
712' 






010167 


176162 




716* 
722' 


011167 


176160 




016167 


000002 


176154 


730' 
736* 


016167 
016167 


000004 


176266 


000006 


176262 


744' 


016267 


000002 


000274 


752* 


011267 


000010 
000011 


000266 
176114 



001772* 104405 000000* 002256' 



002000* 
002002' 
002004' 
002006* 
002010' 
002012' 
002014* 



005011 

000203 

000000 

002026' 

002004' 

002050* 

1777 — 



DEV. 
DROPl: 



7777 



MOV 

MOV 

BIS 

MSGN$ 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

. ***** 

HRDERS 
****** 

CLR 

RTS 

.WORD 

XDRQP1 

DEV 

XDROP2 

-1 



(R3)+,R2 
(R3)+^DEV 
#60/DEV 
BEGIN, DROP1 
'--' pi 



(R2),t< 
R1,CSRA 



2(Rh,ASTAT 
4<R1),DLY1 
6(Rli / DLY2 
2(R2),ESAV1 
(R2),ESAV2 
10(R2},ESAV3 
{U1,ERRTYP 
********** - - ■ 



******** 



&3 R1> 



?SHUT OFF HUNG KMC11. 



ET POINTER TO CSR. 

ET DEVICE 8. 

AKE IT ASCII. 

SCII MESSAGE CALL WITH COMMON HEADER 

FT CSR ADDRESS. 

AVE CSR 

AVE CONTENTS OF SELO. 

AVE CONTENTS OF SEL2. 

AVE CONTENTS OF SEL4. 

AVE CONTENTS OF SEL6. 

AVE END PASS FLAG. 

AVE RECEIVE BUFFER OFFSET. 

AVE RECV/XMTTR COUNTERS. 

INTERRUPT 

************************************** 



"\ 
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571 
"72 




042504 
020114 
027131 
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SOFT1: SOFT11 

-1 
SOFT2: SOFT21 

ERROR MESSAGES 

XDROPl: .ASCIZ 1% KMC11 DEVICE « / 

XDROP2: .ASCIZ /IS HUNG AND HAS BEEN DROPPED. .%/ 



SOFTU: .ASCIZ /* ERROR IN SETTING UP SWITCH REGISTER % RESTART / 



SOFT21: .ASCIZ /% ERROR IN LOADING MICRO-CODE WILL RETRY...?/ 



.EVEN 

EXTENDED ERROR PRINTOUT LOCATIONS.... 

.WORD 

.WORD 

.WORD 

.WORD 

TABLE OF ADDRESSES FOR EXTERNAL ERROR PRINT OUTS. 

DLY1 

DLY2 

ESAV1 

ESAV2 

ESAV3 

-1 

ESAV1 

ESAV2 



ES 



_savi: 

ESAV2: 
ESAV3: 
ESAV4: 



if ABLE: 
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) 



626 
627 

630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 

6 13 
644 
645 

m 

648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 

ill 

667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 



002276' 
002300* 
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ESAV3 
ESAV4 
-1 



********************** ************ ********** 
* 

* INPUT INTERRUPT SERVICE ROUTINE 

* THIS ROUTINE SERVES THE IN INTERRUPT 

* FROM KMC11 BY LOADING REQUESTED XMITR 

* OR RECEIVE BA/CC I 
************************************** 




007276' 005022 



002336' 000004 000000' 002344' 



002344' 
002350' 


017705 


005010 




062767 


000002 


005002 


002356' 


022767 
003003 


007316' 


004774 


002364* 






002366' 
002374' 


012767 
016501 


007276' 


004764 


000004 




002400' 


032711 


000007 




002404' 


001410 






002406' 
002412' 
002414' 


032711 


000004 




001033 






104403 


000000' 


002554 


002422* 


104400 


000000' 
000010 




002426' 


016504 




002432' 
002436' 


011467 


175606 




004767 


001510 




002442' 
002450' 
002456' 


016761 
016761 
056761 


175600 
175574 


000004 


000006 


175556 


000006 


002464' 


052765 


000002 


000006 


002472* 


142711 


00C220 




002476* 


104400 


000000* 




002502' 


mm 


004266' 


175534 


002510' 


001436 





002514' 
002522' 
002530' 
002536* 

002544* 
002550' 
002554' 



016761 
016761 
056761 
052765 

142711 
104400 
002560* 



175526 
175522 
175506 
000001 

000200 
000000' 



000004 
000006 
000006 
000006 



1$: 
2$: 



1$: 
ilint: 



MOV 
ADD 
CMP 
BGT 
MOV 
MOV 



************************** 

R5,@INQIN ;SAVE LINK POINTER IN QUEUE. 
#2,INQIN ;UPDATE THE QUEUE POINTER. 
#PIRINQ+20,INQIN ;END OF QUEUE? 
1$ ;NC, PROCEED. 

ttPIRINQ/INQIN ;RESET QUEUE POINTER. 
<SP)+/R5 'RESTORE R5/I.E POP THE STACK. 



0IPQS 

MOV 

ADD 

CMP 

BGT 

MOV 

MOV 

BIT 

BEQ 

BIT 

BNE 

MSGNS 

EXIT$ 

MOV 

MOV 

JSR 

MOV 

MOV 

BIS 

BIS 

BIC8 

EXITS, 

MOV 
JSR 
MOV 
MOV 
BIS 
BIS 

BICB 

EXITS 

MES2 



,BEGTN, 2$ 



QUEUE UP TO CONTINUE AT 2$ AND RTT 



Spiring, tnqqut 



tlcv 1 



M 



ftINQQUT,R5 'RESTORE THE LTNK POINTER. 
82/INGOUT JUPDATE THE QUEUE POINTER. 
ttPIRINQ+20/INQOUT ;END OF QUEUE? 
** /ND/CONTINUE. 

;RESET THE QUEUE POINTER. 

JLOAD CSR ADDRESS. 

;RF,CEIVE BA/CCI.? 

;branch if yes. 
;xmitr ba/cc i? 

;branch if yes. 

,begin/ilint ;ascii message call with common header 
,begin jexit to monitor. modulf wait for interrupt. 

««,„.-* „, , get receive buffer pointer. 

;va=receive buffer virtual address.. 
;get physical address. 
/sel4=physical rbuff. 
;sel6=extended bits of address. 
rl) ;l0ad receive character count. 
r5) ;set bit1 in end pass flag for 
;rec ba/cc i loaded. 
;clear }dt to request service from 
;khc11. clear iei... 

;exit to monitor. modulf wait for interrupt. 
;load xbuffef virtual address. 
;get extended physical address. 
) ?load physical xmitr buffer. 

) ;load extended address bits xmitr buffer. 
(rl) ;load xmitr character count. 
(r5) ;set htto in end pass flag for 

jxmitr ra/cc i loaded, 
rl) ;clear rd i to indicate start cf operation 

;exit to monitor. module wait fop interrupt. 



10(R5)/R 

(R4),v£ 

PC/EABIT 

PA/4(R1 

EA/6CR1 

RSIZE/6 

#BIT1 # 6 



#BIT7!BIT4/(R1) 

BEGIN 

#XBUF/VA 

PC,EABITS 

PA/4CR1) 

EA/6(R1) 

XSIZE,6(R1 ) 

«nTT0/6(R5) 



/BEG 
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■III 



682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
208 
709 
710 
711 



002556' 
002560' 
002566; 

00260 7 2- 
002610' 
002616' 
002624' 
002632- 



177777 

044445 
044440 
052522 
052111 
051040 
052123 
052440 
000045 



050116 
052116 

Mil 

050505 
051440 
020520 



052125 
051105 
053440 
047516 
042525 
052105 
020441 
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MES2: .ASCIZ /UNPUT INTERRUPT WITH NO RRQUEST SET UP!!!?,/ 



002634 
002640 
002646 
002654 
002656 
002664 



004522 

000002 004514 

007336' 004506 



**** 

6uisr: 




OUTPUT INTERRUPT SERVICE ROUTINE 
THIS ROUTINE SERVES THE OUT INTERRUPT 
FROM KMC11 BY 1 REPORTING ERROR. 

2 ACCEPTING RECEIVE OR XMITR DONE 

************************************************ 

MOV R5/gOUTQIN ?SAVE LINK POINTER IN QUEUE. 

ADD #2/OUTQIN ;UPDATE THE QUEUE POINTER. 

CMP #PIROUTQ+20/OUTQIN MS IT END OF QUEUE? 

BGT IS JNO/ CONTINUE. 

MOV fPIROUTQ/OUTQIN ;RESET THE QUEUE POINTER. 

MOV (SP)+/R5 ;P0P THE STACK POINTER 



PIRQS7BEGIN72S~ 



QUEUE UP TO CONTINUE AT 2$ AND RTI 



175060 
175054 
175050 



104405 000000' 000000 



MOV 

ADD 

CMP 

BGT 

MOV 

MOV 

BIT 

BEQ 

BIT 

BEQ 

MSGNS 

BIT 

BEQ 

MSGN$ 

BIT 

BEQ 

MSGN$ 

MOV 

MOV 

MOV 

MOV 

. **** 

HRDER: 



SQUTQ0UT/R5 
2/0UTQ0UT 
PIROUTQ+20/OUTQ 

ftPlROUTQ/OUTQQUT 

(R5),R1 

|BIT1/2(R1) 

|BIT3/2(R1) 

/BEGIN/SFT1 

|BIT6/2(R1) 



;RESTQRE THE LINK POINTER FROM QUEUE. 
;UPDATE THE QUEUE POINTER. 
OUT ;IS IT END OF QUEUE? 
"NO, CONTINUE. 

;RESET THE QUEUE POINTER. 
/LOAD CSR ADDRESS. 
;IS CONTROL/0 ERROR REPORT? 
;NO/ THEN CHECK FOR RCV OR XMITR. 
;IS IT SOFT ERROR... 
JNO/THEN CHECK REMAINING... 
;ASCII MESSAGE CALL WITH COMMON HEADER 
•IS IT DATA ERROR... 
;N0, CHECK THE REMAINING... 
;ASCII MESSAGE CALL WITH COMMON HEADER 
;IS IT NON EX MEMORY ERROR. 
;NO THEN MUST BE DATA ERROR. 
JASCII MESSAGE CALL WITH COMMON HEADER 
;LOAD DEVICE CSR ADDRESS. 
;LOAD CONTENTS OF DEVICE CSR. 

LOAD ERROR BITS. 



/BEGIR/DTER1 
#BIT5,2(R1) 

/BEGIN/NXMMRY 

Rl/CSRA 

4fRl),ACSR 

6(R1)/ASTAT 

il/ERRTYP JDATA ERROR 
*************************************** 

S/BEGIN/NULL 
*************** 



******************** 



************ 



003044' 142761 000352 000002 



#352/2(Rl) 



>ASTAT= ERROR BITS. 

;CLEAR RDO/NON EX MEM./CNTL/O. 
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EXITS, BEGIN 

IT2/2CR1) 




..MOLY 

Hard 



113, 



'.mi 



jEXIT TO MONITOR. MODULE WAIT FOR INTERRUPT. 

JIS IT XHITR DONE? 
J.NO,RECEIVE!SERVE IT. 

;SET XMITR DONE BIT IM END PASS FLAG. 
JIS IT XMTT ONLY??? 

JCCNTINUE 

;SET FOR RECEIVE BA/CC I... 

JCONTINUE. 

>SET RECEIVE DONE BIT IN ENDPASS FLAG. 

>ALL DONE? 

JNO, CONTINUE. 



BIT4,2(R1) JCLEAR IEO. 
BIT4«tRl) JCLEAR THE TEl 
BIT71BIT2IBIT0,2(R1) ;CLF,AP. 



AR RDO/XMITR OR RECV DONE, BA/CC 0... 
T TO MONITOR. MODULE WAIT FOR 1NTF.RRUP 



/* NON EXISTENT MEMORY ADDRESS ERROR %/ 



.ASCIZ / OCCURED MHILE DOING NPR' 



ASCtZ /% SOFT ERROR %/ 

ASCIZ /% DATA ERROR ON TRANSMIT %/ 



****************** 



i ** **************** ******* 



SUBROUTINE TO LOAD MICRO-CODE INTO CRAM. 

AMD THE PARAMETERS INTO SCRATCH PAD. 

Rl CONTAINS THE CSR AT THE TIME OF ENTPY. 



***************** 



********* 



003356* 005000 



;R0=POINTS TC CRAM ADDRESS. 
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007372' 

000004 
000006 
002000 
022000 

002000 

000000 

000011 
000262" 

000077 00001 
000010 
000004 
000446 



000000' 003506' 
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044515 
047503 
042526 
053517 
046501 



003552* 

003552' 004367 
003556* 010000 
003560' 004367 
003564' 004002 

003566* 

003572' 
003576' 
003602' 
003606* 



012702 
005061 
112061 
004367 



051103 
042504 
020122 
020123 
022440 



000342 

004266' 
001000 
000004 
000004 
00 0314 



3$: 



4$: 



5$: 
2$: 



CRMOFW: 
MES3: 



jfKMAAMC,R2 

RoJcRl) 

( R 'l + « 6 ( R U 
#Blfl6 c £Rl) 

gBIT131BITi0,(F 

#2000, PO 
#|/(R2) 

#11, R5 

RCOLY/R2 

Rl) 

!77,4$ 

'5/4$ 

R2)+,4(R1) 
k3,ROMCLK 

R5 
#15, R5 



MOV 

CLR 

MOV 

MOV 

MOV 

MOV 

INC 

CMP 

BLT 

CMP 

BNE 

MOV 

MOV 

CLR 

BIC 

BIS 

MOVB 

JSR 

123100 

INC 

CMP 

BGT 

CLR 

RTS 



MSGNS/BEGIN/CRMOFW 
BR 5$ 



JR2 POINTS TO MICRO-CODE. 
JCLEAR SFLO... 
JLOAD THE CRAM ADDRESS... 
;LCAD WORD TO BE WRITTEN... 
JSET ROMO 
1) ;WRITE IT! 
JINCRSMENT CRAM ADDRESS. 
JOVER FLOW? 

JYES, REPORT AND RETURN. 
;IS IT END OF MICRO-CODE? 
JHO,CONTINUE LOADING. 
JR5=THE SCRATCH PAD ADDRESS 
JSET THE PARAMETER POINTER. 
JCLEAR SELO. 

JCLEAR THE ADDRESS IN INSTRUCTION.. 
JSET SCRATCH PAD ADDRESS 
JLOAD SEL4 WITH DATA. 
JCLOCK THE INSTRUCTION IN 
; THIS LOCATION. 
^INCREMENT SCRATCH PAD ADDRESS. 
;IS IT DONE? 
JBRANCH IF NOT DONE. 
JCLEAR SELO. 
J RETURN 

JASCII MESSAGE CALL WITH COMMON HEADER 
JRETURN. 



MES3 

-1 

.ASCIZ 



/% MICRO-CODE OVER FLOWS CRAM %/ 



*********** 



****************** 



THIS ROUTINE WRITES GOOD DATA BUFFER 
INTO LOWER HALF OF THE MAIN MEMORY... 
Rl CONTAINS THE DEVICE CSR ADDRESS. 



******** 



r********* 



It****************************** 



********* ** 



*********** 



1$: 



JSR 

010000 

JSR 

004002 

MOV 

MOV 

CLR 

MOVB 

JSR 



R3,ROMCLK JCLOCK INSTRUCTION. 

;LOAD MAR<0:7>. 
R3,ROMCLK ;CLDCK INSTRUCTION. 

JSET POINTER IN KMC11 MEMORY. 
"SET POINTER TO DATA. 
SET THE COUNT. 



ftXBUF,R0 

(R0)+,4(R1) 
R3/ROMCLK 



BSEL4<— GOOD DATA. 
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SEQ 0018 




136500 
DEC 

BNE 
CLR 
RTS 

j. ************* 



Bl) 



?LOAD MEMORY AND INCREMENT ADDRESS. 
;CQUNT BY ONE. 
JBRANCH IF HOT DOHF.. 
J CLEAR THE CSR. 
JRETURN TO MAINLAND. 



******************************** 



HZ 



VERIFY THE MICRO-CODE 

THIS ROUTINE VERIFIES THE MICRO-CODE 

LOADED. AND CHECKS NPR RATE PARAMETER. 

AND THE MAIN MEMORY CONTENTS 

Rl CONTAINS THE ADDRESS OF DEVICE CSR. 



*********** 



*********** 



r*************** 



******* 



000077 000014 
"0010 



3$: 



5$: 
6$: 



7$: 




;CLEAR THE ERROR FLAG. 

JRO POINTS TO SOFTWARE MICRO-CODE. 

JR2 CONTAINS CRAM ADDRESS BITS 0-7 

JCLEAR THE MAINTANENCE REGISTER.. 

;SET THE CRAM ADDRESS... 

;SET ROMO. 

>PUT "EXPECTED" IN R5. 

;PUT "FOUND" IN R4. 

;C0MPARE 

5BRANCH IF O.K. 

;SET ERROR FLAG. 

jRETURN. 

JBUMP MICRO-CODE POINTER. 

;8UMP CRAM ADDRESS. 

J IS IT DONE? 

;YES,GO AND CHECK THE MEMORY... 

JDONE YET??? 

;NO, CONTINUE 

;R5=SPAD ADDRESS. 

;SET THE PARAMETER ADDRESS. 

JCLEAR SELO. 

;CLEAR THE ADDRESS FIELD... 

;SET SCRATCH PAD ADDRESS IN 1NSTR. 

;CLEAR SEL4 

/CLOCK THE INSTRUCTION. 

;M0VE SPAD<R5>->PERG. 

JCLOCK THE INSTRUCTION IN NEXT LOCATION. 

;MQVE BREG,OUTKCSR4>. 

/COMPARE 

jgcod, do the next. 

/SET ERROR FLAG. 

JRETURN. 

>UPDATE R5 POINTING TO NEXT SPAD. 

MS IT DONE? 

;BKANCH IF NOT DONE. 

/GET THE DATA ADDRESS. 

/SET THE BUFFER POINTER. 

;SET THE COUNT... 
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906 
9 07 
908 
909 
910 
91- 
91: 
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BIC 

BIC 

BISB 

BISB 

JSR 

010000 

JSR 

004000 

JSR 

040620 

JSR 

061224 

CMPB 

BEQ 

COM 

BR 

INC 

DEC 

BNE 

CLR 

RTS 

MOVB 

MOV 

BIS 

BIC 

RTS 



|377,15$ 

PlUg/Iss 

FLAG+1,18$ 
R3,R0MCLK 

R3/ROMCLK 

R3/ROMCLK 

R3,ROMCLK 

(R0)+,4(R1) 

MASK 

FLAG 
R" 



w 



/CLEAR THE ADDRESS FIELD. 
;CLEAR THE ADDRESS FIELD. 
/ADD ADDRESS TO INSTRUCTION. 

/add address to instruction, 
/load mar_lo. 
/load mar_hi. 
;breg<~mem. 

>eSEL4< — BREG. 
;C0MPARE THE DATA. 
JBRANCH IF GOOD. 
iELSE,SET THE ERROR FLAG. 

/RETURN 

INCREMENT THE ADDRESS... 

/DONE? 

/NO, CHECK THE NEXT. 

/CLEAR SELO. 

/RETURN. 



BIT9/HR1) ;SET ROMI 

R3)+,6(R1) /LOAD INSTRUCTION IN SEL6. 

BIT9!BIT8,(R1) ?CLOCK INSTRUCTION. 

" — -**-' i '*,CRl) /CLEAR ROMO, ROMI, NP STEP 



w B,(R1> ? 

tBIT10!BIT9!BIT8, 
R3 



******************* 



*************** 



******************** 



SUBROUTINE EABITS:- GETS PHYSICAL 18 BITS ADDRESS FOR 

16 BITS VIRTUAL ADDRESS. 

RETURNS: ADRESS IN PA::ADRESS<0:15> 

ea::address<16:17> 



*************************************************************** 



000000' 

174064 

174060 

mm 



004204' 005067 174056 
004210' 060467 174052 
004214' 005303 



EABITS: 



GETPA$, BEGIN, VA 

SWAB EA 

ROL EA 

ROL EA 

BIC #3776, EA 

RTS PC 



JGET PHYSICAL ADDRESS FROM 16-PIT VA 
;BITS<4:5>— >B ITS < 12:1 3> 
/NOW BITS<14:13> 
/NOW BITS<15:14> 
/CLEAR THE REST.. 
JRETURN... 



*********************************************************** 



MULTIPLIES #'S IN R3 AND R4 AND RETURNS RESULT IN 
TEMP 



******************************************** 



i***************** 



MLTPLY: CLR 
1$: ADD 

DEC 



TEMP 

R4,TEMP 

R3 



/CLEAR THE RESULT. 
/MULTIPLY BY ONE.. 
;COUNT BY ONE... 
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962 

m 

965 
966 
967 
968 
969 
970 

til 

973 
974 
975 
976 
977 
978 



m 
m 

985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
.001 
.002 
.003 
004 
005 
.006 
007 
.008 
.009 
.010 

■ill 

.013 
014 
015 

.016 
1017 



004216* 
004220* 



mm 



001374 
000205 




004266* 
004274* 
004301* 
004306* 
004314* 
004322* 
004327* 
004334* 
004342- 
004350- 
004356' 
004362* 
004370- 
004376* 
004404* 
004412* 
004416' 
004424- 
004432- 
004440' 
004446' 
004450* 
004456' 
004464' 



000400 
003406 

013 
010420 
013426 
016434 

041 
023446 
026454 
031462 
034470 
037075 
042103 
045111 
050117 
053125 
055131 
056055 
043105 
046113 
051121 



001402 
004410 
006414 
011422 
014430 
017436 
021442 
024450 
027456 
032464 
036072 
040077 
043105 
046113 
051121 
054127 
056133 
041101 
044107 
047115 

053125 

030533 

202 



002404 
012 
007416 
012424 
015432 
040 
022444 
025452 
030460 
033466 

041101 
044107 
047115 
052123 



042103 
045111 
050117 

054127 
077535 



BNE 
RTS 



;N0T DONE THEN CONTINUE, 
JRETURN... 



Intlnk 



A******************************************* 

LINK TABLE TO INTERRUPT SERVICE ROUTINE. 
******************** ************** ********** 



JSR 
JSR 

.WORD 
.WORD 
RBUF1 
.WORD 
.WORD 

JSR 
JSR 
.WORD 
.WORD 
RBUF2 
III .WORD 
.WORD 

****** ****** 



CSR22: 
xx2i: 



R5,TNISR 

R5,0UISR 








R5,INISR 

R5,0UISR 










;INPUT INTERRUPT SERVICE ROUTINE. 

;0UTPUT INTERRUPT SERVICE ROUTINE. 

;CSR ADDRESS FOR DEVftl. 

/END PASS FLAG FOR DEVfll. 

;RECEIVE BUFFER POINTER FOR DEV #1. 

;rec/xmitr COUNTERS. 

;ERR0R COUNTS FOR DEV #1. 

MNPUT INTERRUPT SERVICE ROUTINE. 
JOUTPUT INTERRUPT SERVICE ROUTINE. 
;CSR ADDRESS FOR DEV #2- 
;END PASS FLAG FOR DEV #2. 
;RECEIVE BUFFER POINTER FOR DEV #2. 
;REC/XMITR COUNTERS. 
?ERR0R COUNTS FOR DEV -#2. 



*********** 



*********** 



********** 



BUFFERS & QUEUES. 
********************* 



************* 



XBUF: 



.ASCII <0 00 X00 1 XO 02X 003X0 4X 00 5X 006X007X01 OX CI 1X0 12> 

.ASCII <0 13X01 4X0 15X01 6X0 17X02 0X02 IX 02 2X023X02 4X0 25> 

.ASCII <02 6X02 7X03 OX 03 1X0 3 2X03 3X0 3 4>< 035X0 36X 037X0 40> 

.ASCII •*!»#$%&' ()*+,-. /012345 6789: <- 

.ASCII /=>?(? APCDEFGHIJKLMNOPQRSTUVWX/ 

-ASCII /YZC\3--\ABCDEFGHIJKLMNOPQR/ 

.ASCII /SXUVWXYZm/< 177X2 00 ><201><202> 
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1018 


004467' 


203 J 


L02604 


103606 


.019 


004474* 


104610 


05612 


106614 


020 
.021 


004502' 
004510- 


107616 
112624 


.10620 
13626 


iu m 


.022 
.023 


004515- 
004522- 


231 


15632 


116634 
121642 


117636 
122644 


20640 


.024 


004530* 


23646 


124650 


025 


004536' 


125652 


26654 


256 


.026 


004543* 


257 


30660 


131662 


027 


004550* 
004556* 


132664 


33666 


134670 


.028 


135672 


36674 


137676 


,029 
030 


004564* 
004571* 


140700 
305 


41702 
43706 


304 
144710 


031 


004576* 


145712 


46714 


147716 


.032 
.033 
.034 


004604* 


150720 


51722 


152724 


004612* 
004617* 
004624- 


153726 
333 


54730 
56734 


332 
157736 


035 


160740 


61742 


162744 


.036 
.037 


004632' 


163746 
166754 : 


64750 


165752 


004640- 
004645* 


67756 
71762 
74770 


360 
172764 
175772 


.038 


361 


039 


004652* 


173766 


.040 


004660* 


176774 1 
000400 


77776 


377 


.041 


004665* 






042 










43 




005266- 






m 


005266* 
005270' 


005272- 






005274' 






047 










048 
.049 


















.050 










051 


005272' 








.052 


005272' 


005276' 






.053 










.054 


005274- 
005274- 








055 
056 
.057 


006276' 














058 
.059 










005276* 


001000 






m 










■w 










006276* 


001000 






064 


007276' 








.065 
066 


















067 










068 










069 
.070 


007276* 


000010 






.071 


007316* 


000010 






072 
.073 


007336' 


000010 
000000 






007356- 
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.ASCII <203X20 4X2 05X2 06X2 07X21 0X2 11X21 2X2 13X21 4X2 15> 

.ASCII <216><21 7X220X22 1X222X223X224X225X2 26><227><230> 

.ASCII <23 1X232X233X23 4X2 35X236X237X240X2 41X242X243> 

.ASCII <244X245X246X 247X25 0X25 1X252X253X254X25 5X2 5 6> 

.ASCII <257X26 0X26 1X26 2X263X264X265X266X2 67X27 0X2 7 1> 

.ASCII <272><27 3X274X27 5X276X277X300X30 1X3 02X3 3X3 04> 

.ASCII <3 05X3 06X3 07X31 0X3 11X312X3 13X314X3 15X31 6X3 17> 

.ASCII <320><32 1X322X32 3X32 4X325X3 26X327X330X33 1X3 32> 

.ASCII <333>< 33 4X3 35X33 6X3 37X340X3 4 1X3 4 2X3 43X3 4 4X3 45> 

.ASCII <346X347X35 OX 35 IX 352X353X35 4X35 5X3 56 X 35 7X3 60> 

.ASCII <36 1X36 2X363X36 4X3 65X36 6X3 67 X 37 0X3 7 IX 3 72X3 73 > 

.ASCII <374X375X376X377X377> 

.BLKB 400 ; 



;BUFFER POINTER FOR DEV f x l. 
;BUFFER POINTER FOR DEV $2. 



RBUFl: 
RBUF2: 

; : * 

RBUFll: 



RBUF21; 
BASEl: 



TABLE OF RECEIVE BUFFERS 
RBUFll 



Firing: 
piroutq: 
regq: 
inqin: 



;RECEIVE BUFFERS FOR DEV #1. 
;RECEIVE BUFFERS FOR DEV #2. 



RBUF21 

RECEIVE BUFFERS FOR DEVICE U- 

.BLKB 1000 ;RECEIVF, BUFFER 11. 

RECEIVE BUFFERS FOR DEVICE f}2. 

.BLKB 1000 JRECEIVE BUFFER 21. 



QUEUES AND ITS POINTERS. 



.BLKW 


10 


.BLKW 


10 


.BLKW 


10 


.WORD 






?INPUT INTERRUPT QUEUE. 
;0UTPUT INTERRUPT QUEUE. 



JINPUT QUEUE POINTER. 
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1074 


007360' 000000 
007362' 000000 


1075 


1076 
1077 


007364' OOOQOO 
007366" 000000 
007370' 000000 


1078 


1079 


007372' 


1080 




1081 
1082 






1083 




m 




1088 




1089 




1090 
1091 






1092 
1093 






1094 
1095 






\m 




1098 
1099 






1100 




1101 




1102 




1103 
1104 






1105 


007372^ 


HM 


007376' 


1108 


007400' 


1109 
1110 


007402' 
007404' 


1111 


007406' 


1112 


007410' 


1113 


007412' 


1114 


007414' 


1115 


007416' 


1116 


007420' 


1117 


007422' 


1118 


007424* 


1119 


007426' 


1120 


007430' 
007432' 


1121 


1122 


007434' 
007436' 


1123 


1124 


007440' 


1125 


007442' 
007444' 


1126 


1127 


007446' 


1128 


007450* 


1129 


007452' 



inqgut: 


.WORD 





outqin: 


.WORD 





outqout: 


.WORD 





REGQl: 


.WORD 





REGQO: 
MICRCD: 


.WORD 
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?INPUT QUEUE POINTER. 
;0UTPUT QUEUE POINTER. 
;OUTPUT QUEUE POINTER. 
JREGISTSR QUEUES. 
^REGISTER QUEUES. 

DEC/X11 MICRO-CODE FOR KMC11 IT WORKS AS FOLLOWS: 

1) INTERRUPT 11 PROGRAM WHEN 

A, IEI &. RDT SET - INTERRUPT AT LOC. XXO FDR REQUEST OF 
RECEIVE OR XMIT BA/CC I. 

B. IEO & RDO SET - INTERRUPT AT LOC. XX4 FOR REPORTING 
ERRORS (BY CNTL/O) OR REPORTING THE JOB DONE. 

2) WHEN RDI CLEARED BY THE 11 PROGRAM IT GOES AND 
SERVES THE REQUEST I.E. EITHER RECEIVE OR XMIT. 

A. RECEIVE OPERATION IS TO RECEIVE A BUFFER FROM 
KMC11 TO PDP11. 

B. TRANSMIT OPERATION IS TO TRANSMIT A BUFFER FRCM 
PDP11 TO KMC11. 

3) IN NORMAL CASE (BOTH RECEIVE & XMIT) XMIT HAS TO BE DONE 
FIRST THEN RECEIVE. 



4) IT CONTROLS NPR RATE BY INTERNAL SOFTWARE CLOCK 5, NPR/BR 
RATE IS CONTROLLED BY CHARACTER COUNT. 

5) IN CASE OF XMIT OPERATION DATA CHECKING TS DONE 



****************** 



6maamc: move 

MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 



'» 0/BREG 

B Q/MLR 

I 0/MPR 

BREG/SPAD 

BREG/SPAD 

BREG/SPAD 

BREG/SPAD 

BREG/SPAD 

BREG/SPAD 

BREG/SPAD 

BREG/SPAD 

BREG/SPAD 

BREG/SPAD 

BREG/QUT1 

BREG/OUT1 

BREG/OUT1 

BREG/OUT1 

BREG/OUT1 

BREG/OUT1 

BREG/OUT1 

BREG/OUT1 

BREG/OUT1 

BREG/OUTO 

BREG/OUTO 

BREG/OUTO 



<0> 

<1> 

<2> 

<3> 

<4> 

C5> 

<6> 

<7> 

<10> 

<17> 

<0> 

<2> 

<3> 

<4> 

<5> 

<6> 

<7> 

<10> 

<11> 

<0> 

<1> 

<2> 



SCLEAR B 
/MAR <0:7>:=0. 
;mar <8:0>:=0. 

;CLEAR SPAD <0> 

;CLEAR SPAD 

;CLEAR SPAD 

;CLEAR SPAD 

;CLEAR SPAD 

KLEAR SPAD 

;CLEAR SPftD 

;CLEAR SPAD 

;CLEAR SPAD 

;CLEAR SPAD 

;CLEAR BSELO 

JCLEAR 3SEL2 

;CLEAR BSEL3 

/CLEAR BSEL4 

;CLEAR BSEL5 

JCLEAR BSEL6 

CLEAR BSEL7 



<1>. 

<2>. 

<3>. 

<4>. 

<5>. 

<6>. 

<7>. 

<10>. 

<17>. 
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1130 


007454' 


.131 


007456' 


.132 


007460' 


.133 


007462' 


■m 


007464' 
007466- 


136 


007470' 


137 


007472' 


138 


007474- 
007476' 


.139 


140 


007500' 


.141 


007502' 


142 


007504' 


.143 


007506' 


144 


007510' 


.145 


007512' 


.146 


007514' 
007516- 


.147 


.148 


007520' 


149 
.150 


007522' 
007524' 
007526' 


151 
152 


007530' 


153 


007530- 
007532- 
007534' 


.154 


155 


156 


007536' 

mnr- 


157 
.158 


.159 


007544- 


.160 


007546- 


161 


007550- 
007552- 
007554- 


m 


\t& 


007556' 
007560' 


.166 
.167 






168 




170 






.HJ 






ffl 


007562' 
007564- 


175 


007566' 


.176 
.177 


007570' 


007572' 


.178 
179 


007574' 


007576' 


m 


007600' 
007602- 


m 

.184 


007604- 
007610' 
007612' 


.185 


007616' 



1$: 



2$: 



MOVE 

MOVE 

MOVE 

MOVE 

MOVE 

MOVE 

MOVE 

$INC 

$ADC 

MOVE 

BB1 

$BR 

MOVE 

MOVE 

OR 

MOVE 

BB7 

MOVE 

BB7 

SBR 

BB4 

SBR 

MOVE 

MOVE 

MOVE 

MOVE 

MOVE 

MOVE 

MOVE 

OR 

MOVE 

BB7 

MOVE 

BB7 

$BR 



BREG/OUTO <3> 
BREG/OUTO <4> 
BREG/OUTO <5> 
BREG/OUTO <6> 
BREG,OUT0 <7> 
BREG,OUT0 <10> 

# £ MEM,MARINC 
SPAD <0> 

SPAD <1> 

SPAD <1> # BREG 

STRTS 

1$ 

# 200/BREG 

INP1 <CSR0>,SPAD 

BREG/SPAD <0>/OUT 

INP1 <CSR2>/BREG 

MCDLP 

INP1 <CSR0>/BRSG 

PRCSBF 
INTRPT 
MCDLP 



;CLEAR MEMORY LOCATION & INC MAR 

INCREMENT THE COUNT 

;ADD CARRY IN TO MSB. 

;IS IT DONE.... 

;BR IF DONE AND START. 

;ELSE/ CONTINUE 
SET RD I BIT IN B REGISTER. 
<0> /SAVE SELO IN SPAD <0>. 
1 <CSR0> ;SET RD I IN SELO. 

;IS RDO SET??? 

;WAIT TILL IT CLEARS... 

;LOAD BREG WITH SELO. 
IF RD I SET, GO CHECK IEI. 
IF CLEARED, PROCESS BUFFERS. 
IF IGI IS ALSO SET THEN GO INTERRUPT 
ELSE WAIT. 



BREG/ 
BREG/ 
BREG/i 
BREG, I 
# 200 
INP1 
SPAD 
INP1 

INP1 

MCDLP 



;SET UP TO CLEAR CSRS. 
;CLEAR BSEL4. 
;CLE*R BSEL5. 
;CLEAR BSEL6. 
;CLEAR BSEL7 



REG 

OUT1 <CSR4> 
OUT1 <CSR5> 
OUT1 <CSR6> 

OUT1 <CSR7> iLLCAK DOM/ 

/BREG JSET BR REQ. WITH VECTR=XX0. 

<CSR11>/SPAD <0> JGET MICRO MISC. REGISTER. 

<0>/BREG/OUT1 <CSRll> ?SET BR REQ. I.E. INTERRUPT AT XXO. 

<CSR11>/BREG ;IS BR REQ BIT CLEARED. 

;NO/ WAIT OR SPIN ON IT. 
<CSR0> # BREG ;IS IT SERVED??? 

;NO THEN WAIT... 

;RETURN TO LOOP. 



***************************************************************** 



• • **** 
PRCSBF 

2$: 



PROCESSES THE BUFFER REQUEST. 



INP1 <CSR6>/SPAD <15> 
" 77/BREG_ 



EG,S 
# 7,§REG 

INPI <CSR0>,SPAD <0> 
BREG/SPAD <0>/BR.SP 
MEM/SPAD <4> 



;LOAD SPAD <15> WITH C.C LOW BYTE. 

;LOAD MASKING BITS IN B REGISTER 

1NP1 <CSR7>,SPAD <16> ;GET HIGH BYTE OF CHARACTER COUNT. 

BREG, SPAD <16>/SPAD <16> £LOAD HIGH BYTE OF C.C. IN SPAD <16>. 



MOVE 

MOVE 

MOVE 

AND 

MOVE 

MOVE 

AND 

MOVE . . 

MOVE # 4.MEM 
$IFEQ MEM/SPAD <0> 
MOVE # 0/MEM 
SIFEQ MEM/SPAD <0> 
MOVE SPAD <4>/MEM 



?LOAD MASK IN B REG. 

;GET BSELO. 

;MASK OUT AND LOAD IN BREG & SPAD. 



JLOAD EXPECTED IN MEM. 

XMIT JXMIT BA/CC I LOADED!! SERVE IT! 

JLOAD EXPECTED IN MEM. 

RECVE ;RECV BA/CC I LOADDED!! SERVE IT! 

;RESTORE MEMORY LOCATION 
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WIW- 

mm' 



MOVE # IfcBREG 

MOVE BREG,SPAB <0> 

CALL — -*- 
$BR 



SFTEFR 
STRTS 



^SET THE TYPE OF ERROR. 

JNONE! rIpORT ERROR! ! 
JRETURN TO LODP. 



****************************** 



********* 



******************* 



* SERVE THE RECEIVE REQUEST. 

* 1. DATA TRANSMIT FROM KMC11 TO PDP11. THROUGH NPR'S. 

* 2. CONTROL NPR/RR L NPR RATE. 

* 3. REPORT DONE OR ERROR A. NUN EX MEM. 

* B. SOFT ERROR. 
* 
************************************************************** 



RCVL 

is; 
2$: 



MOVE 
MOVE 

MOVE 

BZ 

MOVE 

MOVE 

CALL 

SBR 

MOVE 

MOVE 

MOVE 

MOVE 

MOVE 

MOVE 

AND 

SHFBRT 

SHFBRT 

SHFBRT 

SHFBRT 

MOVE 

MOVE 

MOVE 

AND 

MOVE 

MOVE 

MOVE 

BZ 

MOVE 

$BR 

MOVE 

MOVE 

MOVE 

MOVE 

MOVE 

OR 

MOVE 

BBO 

$BR 

MOVE 

BBO 




,MEM 
>,BREG 

>,BREG 



D <0> 



R4>,DUT0 <6> 

R4>,SPAD <6> 

R5> # OUT0 <?> 

R5> # SPAD <7> 

R7>,SPAD <0> 

EG 

D <0>,BR.SP 

•SET IT 



^RESTORE MEMORY LOCATION. 

JIS XMIT FLAG SET? 

>YES, THEN SERVE THE REQUEST. 

;IS RECEIVE ONLY FLAG SET? 

;YES, THEN PROCEED TO SERVE THE REQUEST. 

;S£T THE TYPE OF ERROR... 

;NO £ REPORT ERRORi! RECV. BEFOPF XMIT. 
JWAIT FOR NEXT REQUEST. 
"^ ?LOAD OUTBA <0t7> 

;LOAD PARALLEL COUNT.. 

;LQAC OUTBA <3:15>. 

?SET PARALLEL COUNT. 

$GET GET OUTBA EXTENDED BITS. 

;GET THE MASK... 



MEM,SPAD 
# 14, MEM 
MEM, SPAD 
SPAD <0> 
SPAD <1> 



.. In RIGHT PLACE. 

>SET IT IN RIGHT PLACE. 
;SET IT IN RIGHT PLACE. 
;SET IT IN RIGHT PLACE. 
<1> JSAVE MEMORY LOCATION. 

;GET MASK 
<0> JIN SPAD <0>. 
,EREG,OUTl <11> ;SET OUT RA <16M7> 



* 0,MLR 

SPAD <11>/BREG 




,MEM JRESTORE MEMORY LOCATION. 

JSET THE BUFFR POINTER. 

?IS RCOLY FLAG SET? 

JYES, THEN SET LOWER BUFFER ADDRESS. 

;CLEAR THE PAGE REGISTER. 

;START THE TRANSMISSION. 

JSET POINTER TO GOOD DATA BUFFER. 
<2>,MARINC ?LOAD LOW RYTE OF DATA. 
<3> MARINC JLOAD HIGH BYTE OF DATA. 

>,SPAD <6> ;WORD XFR, NPR OUT 
D <0>,QUT1 <10> ; & NPR RQ.. 
>,8REG ;IS NPR DONE? 

;NC/ CHECK FCR NON EX MEM. 

;YES, PREPARE FOR NEXT. 
>,BREG ;IS NON EX MEM. SET? 

;YES,REPORT FATAL FRPOR. 
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8815 

010064 





$BR 


4$: 


MOVE 




move 




CALL 




SBR 


3$: 


SDF.C 

BZ 

SINC 


6$: 




SINC 




$ADC 




DC 


B$: 


MOVE 




MOVE 




MOVE 




MOVE 




CALL 




SBR 


7$: 


5 DEC 




MOVE 




MOVE 




SADD 
5BR 


5$: 


SDEC 




BZ 




SBR 
MOVE 


rcvdne: 




MOVE 




OR 




MOVE 




BB4 




$BR 
MOVE 


1$: 




MOVE 




OR 



IS 

# 2,BREC 
BREG/SPAD <0> 
NEXMEM 
STRTS 
SPAD <15> 

SPAD <6> 
SPAD <6> 
SPAD <7> 

SPAD <6>,BREG 
BR£G,OUTD <6> 
SPAD <7>,BREG 
BREG,OUT0 <7> 
NPRATE 
RCVLP 
SPAD <7> 

# 4<BREG 
INP1 <11>,SPAD <0> 



;nq, «ait for npr to clear, 
jset the type of error... 

jreport non ex mem error, 
jwait for next request 
decrement th* count, 
jbranch if it was 0. 

jupdate receive buffer 

j pointer, 
update extended bits if carry set. 
set the address. 

set the outba.. 

;wait to maintain npr rate. 
;do the next xfr. 
;set back to 377. 

;load lsb of exteded address. 

;get extended address bits. 



BREG,SPAD <0>/OUT1 <11> INCREMENT EXTENDED BITS- 
" ' ' ;WAIT_TO_MAINTAIN_RATE THEN PROCEED 



decrement the msb*s 
^branch if done 



;ELSE, DO THE NEXT. 

RD & RCV DONE BITS IN RREG. 



6$ 

SPAD <16> 

RCVDNE 

6$ 

# 201,BREG ;SET .... _ _ .. __. 

INP1 <CSR2>,SPAD <0> JGET RSEL2. 

BREG,SPAD <6>,0UT1 <C3R2> SSET THE PITS IN BSSL2. 

INP1 <CSR2>,BREG JDUMMY XFR TO CHECK IEO? 

1$ JBRANCH IF IEO SET. 

STRTS ;«AIT FOR NEXT REQUEST. 

*f 300,BREG JSET BR REQ. VCTR: = XX4 

inpi *csrii>,spa6 <0> JGET MICRO-PROCESSOR MISC. REG. 

BREG/SPAD <0>,OUT1 <CSR11> /SET THE BITS IN MISC. PEG. 
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XKMCB0.P11 
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SEQ 0026 




2$: 



MOVE 

BB7 

MOVE 

MOVE 

AND 

MOVE 

MOVE 

$BR 



INPl <CSR11>,BREG /IS BR REQ CLEARED? 

2$ >NO, SPIN ON IT 

" 277, BREG ^SET TO CLEAR VCTRJ=XX4.. 



NP1 <CSR11> € SPAD <0> IGET 
REG,SPAD <0>,OUT1 <CSR11> 
0,BREG ;GET 



bre6,spad <10> 

STRTS 



UL.6.AK VLIK.=A^2... 

5GET UPMS REGISTER, _- 

{> ;CLEAR VCTR:=XX4... 

;GET SET TO CLEAR XMIT FLAG. 



JCLEAR XMIT FLAG. _,_ 
;WAIT FOR NEXT REQUEST 



************************************************************** 
i* 

:* TRANSMIT THE BUFFER FORM PDP11 TO KHC11 
!* DOES ALL THE FUNCTIONS AS RECEIVE OPERATION AND 
!* ALSO CHECKS THE DATA. 



XMITi 



********************************************************** 



MOVE 

MOVE 

MOVE 

MOVE 

MOVE 

MOVE 

MOVE 

AND 

SHFBRT 

SHFBRT 

SHFBRT 

SHFBRT 

MOVE 

MOVE 



SPAD <4>,MEM ;RESTQRE MEMORY LOCATION. 

INPl <CSR4>,OUT0 <4> ;GF.T LOW. BYTE OF_BUFFER.. ADDRESS 



INPl <CSR4>,SPAD <6> 
INPl <CSR5>,GUT0 <5> 
TNP1 <CSR5>,SPAD <7> 
INPl <CSR7>,SPAD <0> 



BREG, SPAD <0>,BR.SP 



;SET PARALLEL ADDRESS IN SCRATCH PAD. 

;GET HIGH BYTE OF BUFFER ADDRESS. 

>SET PARALLEL ADDRESS IN SCRATCH PAD. 

;GET EXTENDED BITS IN BREG. 

JGET THE MASK... 



MEM, SPAD <1> 
# 14/MEM 



POSITION THE BITS. 
POSITION THE BITS. 
POSITION THE BITS. 
;POSITION THE BITS. 
JSAVE MEMORY LOC. 
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l3 4 



1$: 
2$: 



4$: 



3$: 



6$: 



MOVE 

AND 

MOVE 

MOVE 

MOVE 

MOVE 

MOVE 

OR 

MOVE 

BBO 

$BR 

MOVE 

BBO 

MOVE 

MOVE 

CALL 

$BR 

MOVE 

MOVE 

SDEC 

BZ 

SINC 

flNC 

SADC 

BC 

MOVE 

MOVE 

MOVE 

MOVE 

CALL 

SBR 

$DEC 

MOVE 

MOVE 

SADD 

$BR 

SDEC 

BZ 



xhtdne: MOVE 

MOVE 

MOVE 

AND 

MOVE 

MOVE 

MOVE 

MOVE 

MOVE 

MOVE 

MOVE 

MOVE 

ckdtlp: move 



MOVE 
MOVE 
$IFEQ 



MEM,SPAD <0> 



;GET THE MASKING BITS. 



M&M,J»rAU <.V? iljlll Int MASMWb B113. 

BREG,SPAD <0>,OUT1 <10> ;LQAD EXTENDED ADDRESS DITS OF BU 
SPAD <1>,MEM JRESTORE MEMORY. 

# 0,MLR ;CLEAR MEMORY LOCATION REGISTER 
I 0,MPR JCLEAR MEMORY PAGE REGISTER. 

INPl <CSR10>,SPAD <8> ;GET NPR CONTROL REGISTER. 

# 001, BREG JSET NPR RQ. BIT IN BREG. 

BREG, SPAD <0>,OUT1 <CSR10> 5SET NPR RQ BIT. 
INPl <CSR10>,BREG ;IS NPR DONE? 
2$ ;NG, CHECK FOR NON EX. MEM 

3? 2YFS, PREPARE FOR NEXT. 

INPl <CSR11>,BREG JlS NON EX. MEM. SET? 
4$ ;REPORT FATAL ERROR IF IT IS. 

'* ;N0, WAIT FOR NPR TO CLEAR. 

?SET THE TYPE DF ERROR... 



I 2, BREG 
BREG, SPAD <0> 



NEXMEM 

STRTS *«« 

INPO <0>,MEM MARINC 
INPO <1>.MEM MARINC 
SPAD <15> 

SPAD <6> 
SPAD <6> 
SPAD <7> 



;REPORT NON EX. MEM. ERROR. 
"WAIT FOR NEXT REQUEST. 

?LOAD THE DATA IN TO MEMORY. 

;LQAD THE DATA IN TO MEMORY. 



DECREMENT_THE COUNT 



SPAD <6>,BREG 
BREG,OUT0 <4> 
SPAD <7>,BREG 
BREG,OUT0 <5> 
NPRATE 
XMTLP 
SPAD <7> 
" 4,BREG 



JBRANCH IF IT WAS 0, 

JUPDATE THE XMIT 
; mi 11 m mi 1111 m 

JBUFFER POINTER. 
;UPDATE EXTENDED ADDRESS IF CARRY SET. 
;SET OUTBA ADDRESS. 

;SET OUTBA ADDRESS. 



JWAIT TO MAINTAIN THE NPR RATE. 
;DO THE NEXT XFR. 
;SET IT BACK TO 377... 

# 4, BREG ;LOAD LSB OF EXTENDED ADDRESS. 
INPl <CSR10>,SPAD <4> JLOAD BREG WITH EXTENDED BITS. 

BREG, SPAD <4$,0UT1 <CSRl6> JlNCREMENT THE EXTENDED BITS. 

8$ ;WAIT TO MAINTAIN RATE THEN PROCEED. 

SPAD <16> JDECREMENT THE MSB'S 

XMTDNE ;BRANCH IF DONE. 

6$ ;ELSE DO THE NEXT. 

INPl <CSR6>,SPAD <15> JGET LOW BYTE OF CHAR. COUNT. 

# 77, BREG ;LOAD THE MASK. 

INPl <CSR7>, SPAD <16> JGET HIGH BYTE OF CHAR. COUNT. 
BREG, SPAD <16>, SPAD <16> '*" 



DKCb/OrAU MD^ 

# 0,BREG 
BREG, SPAD <1> 
BREG, SPAD <2> 
BREG, SPAD <3> 

# 2, BREG 
BREG, SPAD <4> 
SPAD <1>,MLR 
SPAD <2>,MPR 
MEM,SPAD <5> 
SPAD <3>,MLR 
SPAD <4>,MPR 
SPAD <5>,MEM 



1$ 



;LOAD HIGH BYTE OF CHAR. COUNT. 

SET POINTERS TO DATA 

BUFFERS. 

SET POINTER TO GOOD. 



LOAD GOOD DATA. 



;CDMPARE DATA. GO TO IS IF GOOD 



KHCB DEC/X11 
XKMCB0.P11 



lie: 



_368 
1369 
1370 
1371 
1372 



SYSTEM 
12-OCT 



EXERCISER MODULE 
-78 12:02 
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MOVE j 20, BREG >SET THE TYPE OF ERROR... 

MOVE BREG, SPAD <0> J 

CALL DATERR ;REPQRT DATA ERROR. 

IS: SDEC SPAD <15> DECREMENT COUNT 

BZ 2S JBRANCH IF LOW BYTE CIRCLED 

9$: SINC SPAD <3> ;UPDATE GOOD DATA 

$ADC SPAD <4> JBUFFER POINTER 

SINC SPAD <1> JUPDATE DATA BUFFER POINTER 

$ADC SPAD <2> JAND LOAD IT IN MAR. 

MOVE SPAD <1>,MLR ;SET THE MAR... 

MOVE SPAD <2>,MPR ;SET THE MAR... 
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1373 


010360 


374 


010362 


.375 


010364 
010366 


.376 


377 


010370 
010372 


.378 


.379 
.380 
.381 


010374 
010376 


010400 


.382 
.383 


010402 


010404 


.384 


010406 


.385 
.386 
.387 


818»S 

010414 


.388 


010416 
010420 
010422 
010424 


.389 
.390 


.391 
.392 


010426 


.393 




.394 
.395 




.396 




397 




398 




399 




M 






402 




.403 




.404 




.405 




.406 




407 




.408 





L0430 


409 





0432 
0434 


410 





411 
412 





0436 





.0440 
0442 
0444 


.413 





.414 





415 





0446 


W 






.0450 
0452 


418 





0454 


419 

4 2 
421 


010456 


422 
423 




.424 

m 




.427 




1428 







2$: 
3$: 



4$: 
5$: 



CKDTLP 

SPAD <16> 

3$ 

95 

# 205, BREG 

INP1 <CSR2 

BREG, SPAD 

INP1 <CSR2 

STRTS 
f 300/BREG 
INP1 <CSR1 
BREG, SPAD 
INP1 <CSR1 

tf 277/BREG 
INP1 <CSR1 
BREG, SPAD 
SPAD <10> 
STRTS 



JCHECK THE NEXT CHAR. 

^DECREMENT MSB COUNT. 

JBRANCH IF DONE. 

JPFEPARE FOR THE NEXT. 

JSET RD 0/ XMIT DONE BA/CC /N BREG. 
>,SPAD <0> JGET BSEL2. 

<0>,0UT1 <CSR2> JSET BITS TN BSEL2. 
>,BREG ;TS ISO SET? 

JYES, GO INTERRUPT 
JWAIT FOR NEXT INSTRUCTION. REQUEST. 

1>,SPAD <0> ; 

<0>, 0UT1 <CSR11> ;SET BR RQ,VCTF=XX4 

1>,BREG ;TS BR RQ CLEARED 

JNQ, SPIN ON IT. 

JSET TO CLEAR VCTR:=XX4. 
1>,SPAD <0> JGET UPMS REGISTER... 
<0>,OUT1 <CSR11> JCLEAR VCTP:XX4. 

JSET XMIT FLAG 

JGO TO IDLE STATE. 



****** 



********************************************************** 

SUBROUTINES 1. NPR RATE CONTROL 2. ERROR REPORTING. 
******************************************************** 

1. NPRATE. THIS ROUTINE DELAYS THE NPR TO 
MAINTAIN THE RATE SET BY THE OPERATOR. 

THE SMALLEST UNIT FOR RATE IS 2 MICRO-SECOND WHICH 
IS SIMULATED IN SOFTWARE USING MICRO-PROCESSOR 
MOVE INSTRUCTION. DELAY COUNT IS SET AT THE TIME OF 
LOADING THE MICRO-CODE. 

BREG/SPAD <17> 

SPAD <13>,BREG 

BREG, SPAD <0> 

SPAD <14>,BREG 

BREG, SPAD <1> 

SPAD <0> 

2$ 

1§ 

SPAD <1> 

3$ 

1$ 

SPAD <17> PAGEO 

. **************************************************************** 

;* 

:* THIS ROUTINE REPORTS ERROR TO PDP11 MONITOP PROGRAM... 

:* i. soft error:- (spad <4> bito:=i.) 

:* II. NON EXISTENT MEMORY:- (SPAD <4> BIT1:=1.) 

: * 

:* III. DATA ERROR:- (SPAD <4> BIT4:=1.) 



NPRATE: 

1$: 
2$: 
3$: 



JCOUNT MOVE BREG / SPAD <17> 

' JDECREMENT THE COUNT 
JBRANCH IF LOW BYTE IS COUNTED 
JCONTINUE 

JCOUNT HTGH BYTE BY 1. 
JRFTURN IF DONE. 
JCONTINUF. 
JRETURN. 
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.429 










432" 





10460* 

htr- 


• Ml 



8 


'•' 435 


0462* 


m 


8 


m- 


438 
439 








0472* 


:*« 


8 


.««*: 


442 
443 


8 


818S= 


444 





0504* 
.0506* 


.445 
446 








0510* 
0512- 
.0514- 


447 
.448 
449 


8 





0516' 
0520- 


450 
451 

:.452 











: 453 


o: 


0526 * 


454 





0530' 


455 





Xffl- 


.456 





457 





0536* 


.458 


o; 


0540* 


.459 





0542- 


.460 





0544' 


■m 





0546- 


9 


0550- 


■m 

465 










0556' 
0560' 


.466 





.467 





0562- 

0564* 000000 


468 
1469 


01 




000001 
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• ******************* ** *************** ************ ****** ********** 



sfterr: 

nexmem: 
daterr: 



SFTERl: 
NEXMEl! 



DATER1 

merge: 



2$: 
4$: 



3$: 



MOVE 
HOVE 



BB4 

MOVE 

SBR 

MOVE 

SBR 

MOVE 

MOVE 

OR 

MOVE 

MOVE 

MOVE 

MOVE 

MOVE 

MOVE 

MOVE 

MOVE 

MOVE 

MOVE 

MOVE 

BB4 

$BR 

MOVE 

MOVE 

OR 

MOVE 

BB7 

MOVE 

MOVE 

AND 

SBR 

.WORD 

.END 



BREG # SPAD <17> 
SPAD <0>,BREG 
SFTERl 
NEXMEl 
DATER1 

# 212/BREG 
MERGE 

# 242,BREG 
MERGE 

tt 312,BREG 
INP1 <CSR2>,SPAD 
BREG,SPAD <0> OUT 
SPAD <4><BREG ; 
BREG,0UT1 <CSR4> 
SPAD <5>,BREG 
BREG,0UT1 <CSR5> 
SPAD <6>#BREG 
BREG,0UT1 <CSR6> 
SPAD <7>,BREG 
BREG,0UT1 <CSR7> 
SPAD <17>,BREG 
BREG,0UT1 <CSR3> 
INP1 <CSR2>,BREG 

3$ 

# 300/BREG 

INP1 <11>,SPAD <0 

BREG,SPAD <0> OUT 

INP1 <11>,BREG 

4$ 

§277,BREG 

INP1 <CSR11>,SPAD 

BREG,SPAD <0>,OUT 

SPAD <17> PAGEO 





;ENTRY FOR SOFT ERROR. 

;ENTRY FOR NON EXISTENT V. 

?ENTRY FOR DATA ERROR. 

JFIND THE TYPE OF ERROR. 

;SET UP FOR SOFT ERROR. 

"SET UP FOR NON EX MEM. 

>SET UP FOR DATA ERROR. 

;SET SFTER # CNTL/0,RD 0. 

;SET NEXMEM/CNTL/O/RD 0. 

;SET DATAERR,CNTL/0,RD 0. 

<0> ;GET BSEL2 

1 <CSR2> ;SET THE BITS IN 
LOAD ERROR DATA' 

JLOAD ERROR DATA. 

;LOAD ERROR DATA. 

;LQAD ERROR DATA. 



;LOAD ERROR DATA... 

;IS IE SET? 

;YES,GO INTERRUPT. 

}HQ, RETURN. 

;SET BR REQ.,VCTR:=XX4. 
> . ;GET UPROCESSOP MISC. REGISTER. 

1 <11> ;SET BR REQ.,VCTR:=XX4... 

;IS BR GRANTED? 

;NO,SPIN ON IT. 

;SET TC CLEAR VCTR:=XX4. 
<0> ;GET UPMS REGISTER... 
1 <CSR11> ;CLEAR XX4. 

;RETURN TO MAINLAND. 

;MICRO-CODE TERMINATOR.. 
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ACSR QQQ102R 
ADDR 000006R 
ADDR22= 001000 
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= 000400 

= 001000 

= 000011 

$= 104407 

000Q12R 

000013R 

= 104421 

B_ 005266R 

P 010316R 



EiSIS = 88881? 

CSR2 = 000002 
CSR22 004254R 
CSR3 = 000003 
CSR4 = 000004 
CSR5 = 000005 
CSR6 = 000006 
CSR7 = 000007 
DATCK$= 104411 
DATERR 010460R 
DATERS= 104404 
DATER1 010502R 
DATIN = 000001 



222 


8 551* 


730* 






















188 


357 


384 


418 




















235 


























226 


504* 
























m 


552* 
505* 


731* 






















291 


1064# 
























185 


* 111 


350 


370 


437 


438 


483 


507 


514 


515 


548 


560 


647 


659 


660 


671 


630 


710 


722 


725 


728 


734 


738 


754 


819 


94* 


235 


I 417 


466 


677 


753 


















Hi 

235 


f 413 
798 


m 


667 
872 


718 
931 


















345 
























235 
235 


347 


354 


799 




















314 
432 
417 


320 


427 




















235 


740 


743 


753 


















235 


413 
669 
726 

1 li? 


720 


748 




















235 


751 


752 




















235 
























235 
























235 


679 
931 
930 


753 




















235 

235 

1 

235 


%\\ 


931 




















f 437 


43 8 


514 


515 


















190 
191 
235 


[ 404 


408 














































474 


1045# 
























235{ 


| 1374 
























1358 
210 
























819 


822# 
» 501* 
























2201 


550* 


729* 




















528 


974# 
























1J 
1 

1 


\ 1144 


1145 


1148 


1164 


1179 
















\ WW 


1314 
1161 


1315 
1162 


\m 


1342 
1276 


1277 


1280 


1281 


1318 


1385 


1386 


1387 


1390 


1391 


1466 


1467 




















sal' 

1< 


t 1146 

t till* 


1269 


1270 


1271 


1379 


1380 


1381 


1445 


1446 


1457 






li 


1155 
1156 
1157 


m 


1212 


1294 


1295 


1448 














li 
1 


1214 
1347 


1296 
1452 


1297 


1450 














1 
235: 

1365 
235* 


S 1158 


1176 


1215 


1298 


1349 


1454 














, W 
























1439 


1443# 

























DATIO 
DATI1 = 



8888 



II 
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BA16 
BA1.2 



000005 
000004 

\lh\h 

000012 



m 



000017 
104416 
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945* 946* 



41* 

50* 
971# 

1105# 



904* 
467 



642 
651 



644* 
653* 



1073# 
1074ft 
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007 



MICPC s 
MICRCD 



MSGS ~ 
NEXMEM 



14000 
"0236R 
"512R 
, 3 .504R 
063166R 
Q02560R 
0Q3512R 
003303R 
003322R 
000474 
007372R 
010000 
0Q4204R 
OOOOOQR 
000224R 
004000 



mm 



/ay 

m 
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1233 1234 1325 1326 

461* 466* 469* 470 523 

1152 1166 
1444# 



1323 



1209 

1227 
959fr 

123' 



m 



1433# 
1408# 



1246 
1310 



1232 
548 



1258 
1357 



1311 
659 



1323 
1360 



1358 
722 



1337 
1372 



1361 
725 



1373 
72B 



ffl 



OTOAS 
OUISR 



m 



391* 
253# 



973 
703* 



194 
226 



IW 

1468 



195 
227 



705 
714 



196 
229 



213 
230 



m* mn 



214 
231 



215 

235# 



PIRINQ 
PIROUT 



m* 



022626 

007562R 

000000 

00QQ00 

000040 



1173# 



642 
705 
710 



644 
707 



m 



653 
716 



1070# 
1071$ 



I 
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235# 



0OS2 



18 




443 806 



SSSurr.K 004126R 811 # 841 843 849 892 894 910 912 914 916 928# 

316* 337* 498 666 



00U2R 



m 



340 
439 
440 



§8o!30R {Uj 2|P 293 358 395 419 

mini m m - 384# 



6R 

56R 
!R 



mm 

002171R 572 599i 

000032R 200# 
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19^1 §12 314 320 322 323 345 347 

194$ 

im 

199 281# 
1141* 1142# 1190 1210 1247 1273 1284 1324 




316 
335 


317 
337 


333 
338 


662* 
385 


672* 


944 


866# 

Hit 







illN XBUF 

1IBI1 



«ib ry x mm* 

XACT 




672 845 903 994ff 

§28* 



XDRQP2 
XEOM = 
XERR 

XMIT G 010106R 11|5" 1292J 

XMITR 002502R 658 672# 

XMOLY 000263R 26H 309* 

XMTDNE gJ0266R ^45^ 1346# 

XSFU 

XSIZE 

XSOM ~ ZXIXXtr. ,,Af ioi* aha 9754 

XX21 004|56R 3liJ 388* 467 983* 



XMOLY 000263R 261# 309* 

XMTDNE 010266R 1345" 1346# 

XMTLP 010154R 1311# 1338 

XRDY = Q00020 If 



Htt 
"HI 




iiiiit. JiSmiS iigfS \m nn m \m m lift \M 

Wi \\h III 1H! lh mt lift im 



mi 

1273 


m 


\m 


\m 


1278 
1345 


1284 


1316 


1343 


1346 


1362 



S$$DER= 000001 



S$$SER= 000001 



= 


01Q566R 

000100 

000000 


.ADC = 


.ADD = 


.ADDftC= 


000020 


.AND = 


000260 
002000 


.BBO = 


.BBl = 
.BB4 = 


002400 
003000 


.BB7 = 


003400 


.BC 
.BR = 


OOIOQO 
000400 


.BSBRG= 


160000 


.BSIMM= 


100000 



\m 



m 



.BSMEM= 140000 



41 
69} 
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1367 
.438 
:.107f 

=:11SI 

?$l 

124" 

"26, 

294 

311 

.335 

354 

"373 

.410 

.449 

465' 

.107 

1157S 
. 184ft 

'213$ 
2341 

m 

3138 

340| 

_359| 

13878 

445§ 

46l| 

521 

1139 

1263 

1177 
1239 
1141 
1151 
1147 
1253 
1142 
1258 
1346 

1420 
1141 
1190 
1249 
1319 
1367 
1438 
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383 
^459 
:. 112ft 

:.12S» 

140| 

:.16i| 
18 4f 

M 

2553 
276$ 

m 

342i| 

359# 

_384$ 

1436» 

-454# 

Hill 

mi 

1202# 
12231 
1244# 
1274| 
1299| 
1323ft 
135lf 
13653 
1411$ 
1451ft 




468 
142 
204 
253 
320 
374 
439 



1439 
1165 



1281 
1437 



1458 
1278 



1147 
1206 

IF 




urn 

1145 
1174 
1187 
1215 
1234 
1258 

\W 
1306 
1323 
1349 
1362 
1387 
14"- 
14 



M 



146* 

207$ 
227ft 
254tf 

307$ 
333tt 
354« 

37B# 
435tf 
454tf 



1116/f 
1129» 
1146ft 
.175| 

'1883 
2163 

235# 

261H 

13818 

\307| 

"325f 

350$ 

363# 

-3:3 * 

14451/ 

11164 

*129tf 

146# 

178.1 

208| 

228# 

12558 

'2808 

309rt 

3348 

3558 

3798 

-4363 

1455? 



1152 1166 1189 1190 1209 
1264 1267 1273 1284 1317 
1374 1377 1383 1393 1416 



1149 1150 1151 1152 

1209 1210 1229 1231 

-- 1259 1264 1266 1267 

_ 23 1324 1328 1332 1337 

1376 1377 1382 1383 1388 

1441 1443 1458 1459 1464 



1210 
1320 
1419 



1163 
1239 
1272 
1333 
1393 



1231 
1323 
1420 



1165 
1240 
1273 
1343 
1415 



1240 
1324 
1441 



1166 
1242 
1278 
1345 
1416 



1418 

11178 

1130 

1148 

1176 

1189 

1217 

12364 

1262) 

128 2? 

1308 

1326 

1351/ 

1364 

1390' 

14461 

1 461/ 

1113, 

1154 

im-. 

1 230^ 

1256 

1282. 

13101} 

1335 

1356 

1381 

14408 

14568 



1059// 1063// 10700 10718 10728 1105// 



1419 

11188 
1131$ 
1154* 
1177| 
120?f 
12228 
1237S 
1263$ 
12831/ 
130OH 
13332 
1352$ 
1365ft 
1391H 
1.4471 
1462/1 

_ 1 1 H f | 
1 1 3 1 rf 

■ 155ft 

101« 

21H 

232// 

_257» 

}?!? 

384§ 
-442ft 
1457? 



1243 1246 
1337 133P 
1443 1459 



1.183 11 85 

1243 1246 

1234 1316 

1346 1362 

1418 1419 



♦ 
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.CO 
-DBR 



000400 
000400 



DBRSH= 
DBRSP= 
DD 


001400 
003400 
003000 


DEC = 
DMEM = 


000160 
002400 


DNOP = 
DOUT0= 


000000 
002000 


D0UT1= 


001000 


DSP = 


003000 



DO 

FO = 


000400 
000020 


INC = 
LQRN = 
MINUS= 
MO = 
OR = 
PLUS = 
SBR = 


000060 
000240 
000360 

mm 

OOOQOO 
060000 



.SELA = 000200 
.SELB = 000220 



mi* 

„.i» 

1246 
1315 
1378 
1451 

1# 

i# 

11458 

1300| 

18 

18 

1325 

t»l« 

115*' 

1386 

114** 

im 

1305 
1344 
1370 
1414 

1# 

HlJ* 

1296 
1385 



If 
1# 
1121 
1134 
1180 
1226 
1263 
1309 
1344 
1369 

H»i 

1451 
1# 



1183 
1413 

106 

189 

_254 

1318 

.381 

.453 

218 

180 

-161$ 

13088 

"248 

137 

326 

183 

_128 

1255 

*119 

158 

391 

109 

145 

217 

265 

_307 

1347 

'371 

417 

1144 
1215 
1297 
1387 
1138 



1146 
1236 
1298 
1390 
1250 



1161 

1110 
1123 
1136 
1188 
?237 



1237 
1270 
1322 

im 
uu 

1455 
1110 



1140 


1143 


.203 


V05 


256 


258 


.321 


i m 


.384 


.455 


457 


219 


220 


1217 

177ft 
1314$ 


300 


I HO 


342 


.260 


2hh 


182 


1H3 


362 




185 


362 


.129 


130 


257 j 


294 


.120 


121 


1161 ] 
1446 


225 


44H 


l ttll ] 


•HI 


*#* 1 


i m 


.308 


L312 

350 


349 


375 


379 


1435 1 


44b 



1148 
1238 
1312 
1445 
1251 



1111 
.124 
.138 
.202 
.245 
.276 
327 
.353 
.372 

til 

■m 

: 468 

1111 



1146 
1207 
1261 
1333 
1389 
1460 
1221 

11838 
13508 
1327 
1184 



1131 
1296 
1122 
1237 
1450 
1112 
1176 

im 

1314 
1352 
1380 
1446 

1160 
1241 
1315 
1457 
1329 



1270 

112 

125 

_139 

1203 

'248 

_281 

1329 

354 

373 

435 

462 

203 

361 

1112 



1148 
1209 
1268 
1335 
1410 
1463 
1301 

1185S 
1362$ 
1339 
1185 



1132 
1334 
1123 
1263 
1452 
1113 
1177 
1237 
1276 
1322 
1353 
1385 
1461 

1162 
1262 
1318 
1461 
1330 



1113 
112 6 
1140 
1205 
1250 

1330 
1356 
1375 

1205 
1372 



1154 
1216 
1271 
1337 
1412 
1465 
1302 

12178, 
13808 
1344 
1186 



1133 
336 
.124 
270 
454 
.114 
179 
245 
: 280 

:354 

.386 
1462 

1164 
1269 
1325 
1463 

1368 



1159 
1225 
1274 
1340 
1436 

1303 

1225* 
1336* 
1366 
1202 



1134 

1125 
1276 
1456 
1115 
1180 
1248 
1281 
1329 
1356 
1390 
1466 

1174 
1271 
1326 
1466 
1370 



1380 

115 

.128 

1155 

'217 

252 

300 

333 

358 

.386 

1447 

1228 
1410 



1161 
1228 
1277 

1348 
1440 

1304 



139p 

1375 



1135 

1126 
1281 
1462 
1116 
1181 
1250 
1283 
1330 
1359 
1391 
1467 

1176 
1275 

1341 



1162 
1235 
1279 
1351 
1442 



1263$ 
14468 
1392 
1226 



1136 

1127 

308 

:.467 

"117 

188 

251 

295 

.331 

.364 

1392 



1277 
1347 



164 
23 8 
282 
355 
444 



12701/ 
1462p 
1414 
1293 



1145 
1314 

1113 
.208 
252 
297 
339 
366 
409 



1211 
1280 
1349 



1116 


1117 


11 B 


1129 


.130 


m 


1156 


L157 
L219 


Ihfl 


1218 


22 


1254 


255 


25 6 


m\ 


302 


303 


335 


H3 6 


1360 


361 


364 


1391 


392 


409 


1448 


L449 


450 



1254 
1412 



1256 
1420 



1293 
1436 



1175 
1241 
1299 
1363 
1447 



12768 
1467# 
1417 
1306 



1155 
1342 

1138 
1212 
1260 
129 8 
1341 
1363 
1411 



1212 
1294 
1379 



119 

1132 

161 

221 

257 

_304 

1339 

.366 

-410 

451 

1309 
1447 



1178 
1244 
1313 
1365 
1449 



12318 
130? 



1156 
1380 

1139 

:.2i4 
: 262 
300 
3 42 
_365 
1413 



1213 
129f 
13*1 



1120 
133 
177 

m 

30P 

2 42 

36B 

_411 

1452 

1333 
1449 
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.SINO 
.SIN! 



020000 
120000 



.SMEM = 040000 




2A = 000120 
2AWC = 000140 




125 
156 
234 
336 
452 
137 
223 
299 
365 

160 



463 
222 



1110 
123 
136 
149 
163 
183 
207 
224 

_23 7„ 

1250# 
2638 
•276f 

-2978 
314* 
327$ 
340* 

m\ 

379* 

392* 

-420* 

1447$ 

*460l 



HI* 

1245 
1352 
1454 

ha 

1306 
1378 



1466 
1224 



111X# 

1124 

1137 

1150* 

1164 

1184 

1208 

1225 

1238 

1251 

1264 

1277 

1298 

1315 

\ffl 

1380 
1393 
1435 
1448 
1461 



m 

255 
353 
s 456 
154 
1.230 
.310 
1384 

1164 



241 1262 1269 
315 1318 1341 



1126 
1181 
1257 
1354 



1232 
1311 

1389 



1271 
1347 



..lit 

1139* 

"I? 

-86* 
-210* 
1227ft 
1240ft 

.317$ 

.330* 
.343$ 
.356tt 
!.369* 
"382# 
410* 

Alii 

1463U 



1129 
1188 

128? 
1356 

1175 
1235 
1313 
1440 

1176 
1275 
1349 



U14& 
.1271 
.140j 

\W 

ill 

-ffli 

.254 
.267 

.280} 
.305' 
318 
331 
344# 
357 

:.37oI 

383| 

411* 

: 438| 

1464$ 



1130 

1208 
1301 
1359 

1178 

1321 
1442 

1179 
1277 
1379 



urn 
im\ 

1175* 

mi 

1229* 
1242N 
12558 
1268* 
128i| 
1306* 
13198 
13321 
1345$ 
1358* 
137l| 
1384* 
1412ft 
14391 
1452* 
1465H 



1131 
1218 
1302 
1364 

1182 
1246 
1323 
1444 

1211 
1280 
1381 



130 3 
1409 

1184 
12S8 
1337 
1460 

1212 
1294 
1385 



1133 
1220 
1304 
1411 

1187 
1261 
1340 
1465 

1213 
1295 
1387 



1116* 


L117* 


lllBf 


1129* 


130j 


1131 


nul 


im 


1144 
115 8?. 


U763 


177# 


11781 


H!3| 


190* 
•214§ 


1202 
1215 


1230* 


231 


123? 


1243* 
1256* 


244* 


1245* 


257i| 


1258J 
1271 
1204 


1269$ 


■27p{ 
.2R38 


1282* 


1307* 
13208 
13338 


308* 


1309 


321 


1322 


334« 


1335 


13464 


347W 


134EJ 


1359* 
137?$ 


.3603 
.373* 


1361 f 

1374* 


13850 


.3R6S 


1387* 


141 Jf 


414* 


1415f 


1440* 


.441* 


1442* 


1453* 


.45 4* 


1455* 


1466» 


L467fl 


1468? 



000000 
010566 



000 
001 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

XKMCB0,XKMCB0/SOL/CRF:SYM=DDXCOM,XKMCB0 
RUN-TIME: 20 22 1 SECONDS 
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174/44=3.9 
C 17 PAGES) 



.M 


Ilk 






WW 
11F 



DIAGNOSTIC ENGINEERING 

lOuO DECOD DEPO0 SUBMISSIOND 



FOR RELEASE ENG. USE 
□ NEW Q CHANGE [] DELETE 



PRODUCT IDENTIFICATION 



f¥!D 



LIBRARY 



zz 



PRODUCT NUMBER 



CXKMC 



REV 



B 



PATCH 



ECO 
TALLY 



G/ 



PRODUCT DATE 



DD MMM YY , 

13 I APR| 79 n OBSOLETE 



STATUS 



DISTRIBUTION 



xRi nrw 



1ST COPY 
RIGHT YEAR 



~wm 



LAST COPY 
RIGHT VEAR 



1979 



TITLE 



CXKMCB1 KMC-11 MODULE 



15^j^ G £ft!f£T GRP 




author Da BUTENHOF 
CK description 



MAINTAINER 



PRODUCT COMPONENTS 



PRODUCT NO. 



REV CK DESCRIPTION 




D. BUTENHOF | submit ™g ENC b\ EE, BUTENHOF 



PRODUCT NO. 



REV 



DOCUMENT 



INDEX 



LISTING 



SOURCE MEDIA 



OBJECT MEDIA 



TEST MEDIA 



PECO 



AF-E950B-M1 




PRODUCTS OBSOLETED (other than previous version) 



LIBRARY 



PRODUCT NUMBER 




M D 



^ PRODUCT CHARACTERISTICS 

PROCESSORS PRODUCT OPERATES WITH (Enter all applicable 2-digit codes representing the Processor the product operateVwith. See separata instructions.) 



OPERATIONAL CODES (Enter all applicable 2-digit codes that describe the product. See separate instructions.) 




ACT/APT/XXDP 



NUMBER 



ACT/XXDP 
COMPATIBLE? 

xh i~1n txi v 



APT COMPATIBLE? 



DECO/DEPO INFORMATION 



PROBLEM REPORTS 



LTIMED1A AFF ECTED? □ YES IQNof 



DEVICE AFFECTED DEC/Xll 



MU 



KIT NUMBERS 



ZJ130-RB 



ZJ129-RZ, 



FR 



PROBLEM: 



ERRORS WHEN BUFFERS OVERLAP 32K BOUNDARY, DUE TO MICROCODE BUGS, 



SOLUTION: 



PATCH THE FOLLOWING MODULE LOCATIONS 



DEPO PATCH AREA 



CHANGE LOC 



FROM 



TO 



CHANGE LOC 



FROM 



TO 



I 



10024 
10246 
10254 



63167 
63167 
61014 



63207 
63207 
61010 



I ' I J l<\f 





SUPPORT ENGINEER 



CHARGE DECO/DEPO TO 
DISCRETE PROJECT NUMBER 



BATE: -j_ 



^s-APi-rw 



DATE: 




Q*)? fl5Y£dT 



FIELC 



DATE 



^WUE 



2£/&A 77 



WAIVERING MANAGER 



DATE: 



COORDINATION NO, 



JMIIUIMIMU^ , ^. ^* 



